Top 10k strings from MicroHobby Semanal - Issue 057-060 (1985)(Hobby Press)(es)(Side B).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
6 ;" PARE LA CINTA ":
5 ;" ";
5 ;" ":
4 n,ve;" ":
4 ;" ";
3 ene,mi;" ":
3 ;" "
3 ;" ":
3 ;" ":
3 ;"
2 f(i)=f(i+1
2 PARA VOLVER AL MENU PULSE ENTER
2 ;" "
2 ,PB;B$(MB)(1
2 (NPROG/DOS)
2 "22",CERO;B$:
1 zz=z1+z2+z3+z4:
1 z$=" . ":
1 ym=(maxy+miny)/2
1 y=a+b*x","
1 y=a+b*LN(x+c)","
1 y=a*x^2+b*x+c","
1 y=a*E^(b*x)-c","
1 y=a*(x+d)^b-c","
1 y$="k2*x*x+k1*x+k0"
1 y$="a4*(x+d4)^b4-c4"
1 y$="a3+b3*
1 y$="a1+b1*x"
1 y$="(-l1+sg2*
1 xxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxzzzzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxzxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxzzxzzzzzzzzzzzzzzzzxxxxxxxxxzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzz
1 xx2x2=z(14
1 xm=(maxx+minx)/2
1 x=xx1+(fin-iniC)*(xx2-xx1)/20
1 x=minx+q/18
1 x=a*y^2+b*y+c","
1 x=(f(i)+emi*
1 x(n*ue),90
1 x(b(i+z1+1
1 x$="l2*y*y+l1*y+l0"
1 x$="(y-a1)/b1"
1 x$="(-k1+sg1*
1 x$="((y+c4)/a4)^(1/b4)-d4":
1 t$=t$+b$+")"
1 t$="("+b$+")/("
1 s$="("+p$+")/("+q$+")"
1 s$'"intervalo: x1=";xx1;" x2=";xx2
1 ra=(ca*ua+ba*va-qa)/(za-qa):
1 r$=" | "
1 qa=ua*ua/na:
1 q$=" "
1 puntos=puntos+300
1 p$="OR TP D.COM D.FIN N.BY A TM C TC":
1 nume=nume+1
1 miy=(miny-1
1 mix=(minx-1
1 miny=miny+(y-miny)*(y<miny):
1 minx=minx+(x-minx)*(x<minx):
1 micro
1 menu=cod-48
1 menu1=code-48
1 mejor=mejor+(l-mejor)*(
1 meda=meda+1
1 maxy=maxy+(y-maxy)*(y>maxy):
1 maxx=maxx+(x-maxx)*(x>maxx)
1 m$=" "
1 m$(x)="TE":
1 m$(x)="RO":
1 m$(n)=" ":
1 m$(k)="TE"
1 l2=(y2x*yy-yx*yy2)/deny:
1 l1=(yx*y2y2-y2x*yy2)/deny:
1 k2=(xx2y*xxx-xxy*xxx2)/den:
1 k1=(xxy*xx2x2-xx2y*xxx2)/den:
1 jae=gra3+(gra3=0
1 h(i,j)=h(i+1
1 fuel=fuel-5
1 fuel=fuel-1
1 fuel=fuel+50
1 fin>iniC+20
1 fin;")= ";x,
1 fin;")= ";
1 fin;")*f(";
1 f(j)=f(j+1
1 f(i)>f(i+1
1 ene,mi;" ":
1 dmi=maxy-miny:
1 dmax=dmax+(dmi-dmax)*(dmi>dmax):
1 dmax=(maxx-minx):
1 deny=yy*y2y2-yy2*yy2:
1 deny=deny+1e-4
1 den=xxx*xx2x2-xxx2*xxx2:
1 den=den+1e-4
1 d$;"=";e(i+1
1 color=color+1
1 col1=col2-2
1 coc=a$="c":
1 cc=dd-bb*g(i-2
1 canti=canti+1
1 c$(n)=" ":
1 ba=(va-sa*ua)/(wa-sa*ta):
1 b$=" | "
1 aa=(ua-ba*ta)/na:
1 a$="("+f$+")/("+l$+")/x":
1 _ >>>>> ~FIRE FOX~";
1 VIDEOO
1 UNO;"PONGA EN MARCHA LA CINTA";
1 TZX por Manuel Gomez Amate
1 Skaguerrak
1 SPACE-UNO,X1
1 SPACE-UNO,CERO:
1 SPACE,LINEA:
1 SPACE,CERO:
1 Regresion k
1 Polino III
1 M$="SKAGUERRAK ":
1 I,CERO;,,:
1 Hobby Press
1 Generador W
1 G.DEFINIDOS
1 Fire Fox
1 Ficheros p
1 DOS=UNO+UNO
1 DI S P A RO
1 Castellano
1 Cargador \
1 Cara b
1 CINTA 15 CARA B
1 CERO;" ";
1 C$="NO HAY TORPEDOS":
1 C$="Excesiva profundidad":
1 C$="El Bismarck contraataco y no te sumergiste a tiempo":
1 C$="Colision en Skaguerrak":
1 C$="Colision con Bismarck":
1 C$=" Por favor, elija un programa "
1 Bismarck
1 BX=RBX+BX:
1 B$=" "
1 =(y-y)=(y-ym)*136
1 =(x-x)=(x-xm)*136
1 ="L")-(378
1 ;z$;" ..... 300";
1 ;x2-x1,y2-y1:
1 ;x$;" ..... 150 aprox.";
1 ;c$;" ..... 75"
1 ;"y=a+b*x"
1 ;"y=a+b*LN(x+c)"
1 ;"y=a*x^2+b*x+c";
1 ;"y=a*E^(b*x)-c"
1 ;"y=a*(x+d)^b-c"
1 ;"x=a*y^2+b*y+c";
1 ;"x y f":
1 ;"pulsa ENTER":
1 ;"Vamos a hacer un cuadro..(pulsa)":
1 ;"V=Ver. H=Hor. C=Cir. O=Lh. E=Lv."
1 ;"UNIDAD";
1 ;"UN MOMENTO":
1 ;"Tiempo de presentacion= ";t:
1 ;"Tiempo de cierre= ";t:
1 ;"TITULO DEL CARTUCHO"
1 ;"Separacion entre caracteres ";sp
1 ;"SP/ FUEGO","M/ PAUSA"
1 ;"Rotulo: ";
1 ;"Rotulo en 3D (max. 7) ";
1 ;"Q/ NORTE","X/ INMERSION";
1 ;"PUNTOS:";
1 ;"PULSE CUALQUIER TECLA."
1 ;"POSICION:";
1 ;"P/ ESTE","L/ PERIS. DCHA.";
1 ;"Opcion:";
1 ;"O/ OESTE","K/ PERIS. IZQ.";
1 ;"O T R A ? ":
1 ;"Numero de orden= ";k:
1 ;"Num. del scan(0 a 168) ";ns:
1 ;"Num. del scan (0 a 130) ";ns:
1 ;"NO PARES LA CINTA"
1 ;"Margen izquierdo ";mi;
1 ;"MENU PRINCIPAL"'''"1- Crear pantallas de rotulos"''"2- Introducir texto"''"3- Preparar salida por pantalla"''"4- Ejecucion de lo preparado"''"5- Limpiar memoria"''"6- Informacion de lo creado"''"7- Salir del programa"
1 ;"M=Menu R=Reponer S=Salvar C=Cont"
1 ;"M.C. CARGANDO"
1 ;"Lo quiere en 3-D ";
1 ;"LONGITUD=";
1 ;"INK= ";i;" BRIGHT= ";b;" FLASH= ";f:
1 ;"HONOR : ";
1 ;"ESCALA ";ue:
1 ;"ENTER para salir"'
1 ;"E.V.:x=";
1 ;"E.H.:y=";
1 ;"DEL=Borra caracter EDIT=Finaliza"
1 ;"Cuantas pantallas quiere ";pt
1 ;"Comprueba este cuadro...":
1 ;"Color del PAPER ";p;
1 ;"Codigo de cierre= ";
1 ;"Codigo de abertura= ";
1 ;"CALCULANDO"
1 ;"BORDER= ";b;" PAPER= ";p;" INK= ";i:
1 ;"BORDER ";b
1 ;"Anchura del caracter ";an;
1 ;"Altura del caracter ";al;
1 ;"Ahora dibujamos la funcion:"
1 ;"A/ SUR","S/ ASCENSION";
1 ;"11)REPRESENTACION DE POLINOMIOS Y COCIENTES DE POLINOMIOS"
1 ;"-Verticales: ";:
1 ;"-Oblicuas: ";
1 ;"-La funcion es:"'" f(";d$;")=";s$''"-Ahora voy a calcular las deri- vadas (te aviso cuando termine)"
1 ;"-Horizontales: ";:
1 ;"* B I S M A R C K *"
1 ;"(compruebalo)"'':
1 ;"(Si quieres la opcion pulsa s)" :
1 ;"!!TOCADO!! "
1 ;" T H E E N D ":
1 ;" FUEGO !!!":
1 ;" derecho ";md:
1 ;" PULSA EL NUMERO DEL PROGRAMA "
1 ;" MARCA EL RUMBO DEL TORPEDO "
1 ;" ENTER: DISPARO * B: ABANDONAR "
1 ;" ";
1 ;" ":
1 ;" ";
1 ;" "
1 ;" ":
1 ;" ":
1 ;" "
1 ,ve;" "
1 ,j)=p(i,j+2
1 ,j)=h(i,j):
1 ,PB;B$(MB)
1 ,D.L.: M-36598-84
1 ,"Titulo","Titulo","Titulo","titulo","titulo","titulo"
1 +zz-z4)),0
1 +z1+z2+z3):
1 +z1+z2+z3)'
1 +z1))>max*5
1 +pol+j)=g(i,1
1 +(i<gra3):
1 ***izquie = w s
1 ***frente = q a
1 ***derech = e d
1 ***arriba = r f v
1 *** abajo = t g b
1 *** CINTA-MICROHOBBY ***
1 *(maxx-minx):
1 )=p(i,col-2
1 )=g(k,j,i)
1 )=g(i,mam,2
1 )=g(i,mam,1
1 )=f*x*x*x+z(13
1 )=a(i)+b(i)+c(i)+e(i):
1 )/d(gra3,1
1 ),"y^4",z(17
1 ),"y^3",z(16
1 ),"y^2",z(6
1 ),"x^4",z(14
1 ),"x^3",z(13
1 ),"x^2*y",z(15
1 ),"x^2",z(2
1 ),"x*y^2",z(18
1 ),"x*y",z(9
1 ),"My",z(5
1 )+f*y*y*y:
1 )+f*y*y*y*y
1 )+f*y*xa::
1 )+f*y*x*x:
1 )+f*x*y*y:
1 )+f*x*x*x*x:
1 )*max/85.3
1 )*(code<54
1 ))*(menu=8
1 (y1-y2)<1e-6
1 (y1+y2)<1e-6
1 (l1*l1-4*l2*(l0-x)))/2/l2"
1 (k1*k1-4*k2*(k0-y)))/2/k2"
1 (cc/bb)>max
1 (b2*x)-c2"
1 (Y-BY);" ";
1 (VALOR)<"A"
1 ((y-a3)/b3)-d3"
1 ((y+c2)/a2)/b2"
1 '" *Copia antes los resultados":
1 # el Bismarck #
1 # VICTORIA #
1 # UDG Y MC c:
1 # TORPEDO #
1 # PERISCOPIO #
1 # LA PANTALLA #
1 # INMERSION #
1 # ENEMIGO #
1 # DISPLAY #
1 # DERROTA #
1 "valor de y=";y:
1 "valor de x=";x:
1 "f(";d$;")=f(-";d$;"), luego f es par":
1 "f(";d$;")=-f(-";d$;"), luego f es impar":
1 "Ya tienes los ceros? (s/n) ";
1 "Vamos a dibujar maximos, minimosceros y asintotas":
1 "Recuerda que los ceros de un cociente son los del numerador"
1 "PARIDAD E IMPARIDAD:"'':
1 "Otra vez? (S/N) ";
1 "MicroHobby Semanal numeros 57 a 60
1 "La funcion no es ni par ni impar"
1 "Introduce un cero: ";e(i+1
1 "Introduce un cero: ";c(i+1
1 "Introduce un cero: ";b(i+z1+1
1 "Introduce un cero: ";a(i):
1 "Intervalo valor valor valor"'"o punto: de f de f' de f''"
1 "FIRE FOX"
1 "E-Generador","F-Polino III"
1 "Cuantos ceros tiene f? ";z1:
1 "Cuantos ceros tiene f'? ";z2:
1 "Cuantos ceros tiene f''? ";z3:
1 "Cuantos ceros tiene el denomi- nador de f? ";z4:
1 "Corte con el eje vertical:"'
1 "ASINTOTAS";
1 "A-Bismarck","B-Ficheros","C-Regresion","D-Fire Fox"
1 "64"+NPROG)
1 "5";"cara: ";
1 "5";"Programa: ";
1 "5";"Programa inexistente":
1 "5";"'R' Vuelve al menu"
1 "5";"'L' Carga el programa";
1 "32"-I;C$(
1 "3*max/2","bb*3*max/2+cc","(33*max/32-cc)/bb","33*max/32"
1 "22",CERO;C$(I
1 "22",CERO;B$
1 "22",CERO;
1 "-Estos son los resultados:";'''" f(";d$;")=";s$''" f'(";d$;")=";t$''" f''(";d$;")=";u$''
1 "-3*max/2","-bb*3*max/2+cc","(-33*max/32-cc)/bb","-33*max/32"
1 " Polinomio o cociente? (p/c) ";
1 " MENU GENERAL","","
1 " Halla tambien los ceros del de-nominador de f"
1 " Ahora debes ir a las opciones 9y 10 y hallar los ceros de f, f'y f''."
1 " MENU"," ","1 DIBUJAR","2 BORRAR","3 y ESTIMADA","4 x ESTIMADA","5 MENU GENERAL","","PULSA SU TECLA"
1 " *Cuando los tengas vuelve":
1 MEDIAS,DES-"," VIACIONES,..","
1 MAYOR r","","PULSA SU TECLA"
1 INPUT f(x)","
1 INPUT datos","
1 # EL PROGRAMA #
1 THE END
1